home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / arrays.arc / TWO-D.BAS < prev   
Encoding:
BASIC Source File  |  1987-09-17  |  2.1 KB  |  61 lines
  1. defint a-z
  2. dim  cities$(100), temps(100,4)
  3.  
  4. '*** Main program is here
  5. gosub readindata
  6. gosub printoutdata
  7. end
  8.  
  9.  
  10. '****************************************************************************
  11. ' READINDATA - gets in the necessary data (ie, name/temperature pairs)
  12. readindata:
  13.         restore info
  14.         read  n.cities
  15.         for  i=1  to  n.cities
  16.                 read  cities$(i)
  17.                 read  temps(i,1), temps(i,2), temps(i,3), temps(i,4)
  18.         next
  19.         return
  20. '****************************************************************************
  21.  
  22.  
  23. '****************************************************************************
  24. ' PRINTOUTDATA
  25. printoutdata:
  26.         locate 1,1
  27.         color 14
  28.         print "CITY","HIGH","LOW","PRECIP.","WIND"
  29.         color 7
  30.         for  i=1  to  n.cities
  31.                 print  cities$(i),
  32.                 print  temps(i,1), temps(i,2), temps(i,3), temps(i,4)
  33.         next
  34.         return
  35. '****************************************************************************
  36.  
  37. info:
  38. data 22
  39. data Acapulco,          94,     77,     11,     2
  40. data Athens,            89,     66,     11,     8
  41. data Beijing,           83,     68,     6,      12
  42. data Bonn,              68,     66,     2,      11
  43. data Cairo,             90,     68,     12,     1
  44. data Copenhagen,        64,     45,     7,      20
  45. data Dublin,            63,     63,     5,      18
  46. data Geneva,            88,     59,     6,      15
  47. data Helsinki,          60,     43,     7,      12
  48. data Jerusalem,         90,     61,     13,     2
  49. data Lima,              66,     63,     13,     5
  50. data Madrid,            96,     63,     12,     2
  51. data Merida,            86,     75,     12,     4
  52. data Monterrey,         95,     75,     12,     6
  53. data Moscow,            52,     46,     2,      22
  54. data Nice,              80,     68,     12,     7
  55. data Paris,             70,     64,     8,      14
  56. data Rome,              84,     64,     10,     10
  57. data Singapore,         85,     73,     9,      9
  58. data Taipei,            84,     73,     7,      12
  59. data Toronto,           72,     50,     0,      26
  60. data Vienna,            90,     57,     2,      20
  61.